Private Sub UserForm_Initialize()

    Dim  As Range,  As Range
    Dim c As Integer, r As Integer
    
    Set  = Range("C3", Cells(Rows.Count, "C").End(xlUp))

    With lvw
    
        .View = lvwReport
        .AllowColumnReorder = True
        .FullRowSelect = True
        .Gridlines = True
        .HideSelection = False
        .LabelEdit = lvwManual
    
    End With

    With lvw.ColumnHeaders
    
        .Add Key:="", Text:="", Width:=35, Alignment:=lvwColumnLeft
        .Add Key:="̸", Text:="̸", Width:=45, Alignment:=lvwColumnCenter
        .Add Key:="", Text:="", Width:=35, Alignment:=lvwColumnCenter
        .Add Key:="Ի", Text:="Ի", Width:=70, Alignment:=lvwColumnCenter
                
    End With

    With lvw
    
        For Each  In 
        
            .ListItems.Add Text:=.Offset(, -1).Value
            r = r + 1
        
            For c = 1 To 3
                .ListItems(r).SubItems(c) = .Offset(, c - 1)
            Next
        
        Next
    
    End With

End Sub